home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 18
/
aminetcdnumber181997.iso
/
Aminet
/
dev
/
amos
/
AMOSList_0197.lzh
/
AMOSLIST
/
000138_amos-request@svcs1.digex.net_Fri Jan 24 20:08:06 1997.msg
< prev
next >
Wrap
Internet Message Format
|
1997-02-02
|
2KB
Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id UAA10513
for <mcox@access.digex.net>; Fri, 24 Jan 1997 20:08:04 -0500 (EST)
Received: (from daemon@localhost)
by svcs1.digex.net (8.8.5/8.8.5) id RAA24232
for amos-out; Fri, 24 Jan 1997 17:32:00 -0500 (EST)
Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id RAA24229
for <amos-list@svcs1.digex.net>; Fri, 24 Jan 1997 17:31:59 -0500 (EST)
Received: from uno.canit.se (root@uno.canit.se [193.13.228.1])
by mail3.access.digex.net (8.8.5/8.8.5) with SMTP id RAA05037
for <amos-list@access.digex.net>; Fri, 24 Jan 1997 17:31:56 -0500 (EST)
Received: (from uucp@localhost) by uno.canit.se (8.6.10/8.6.10) with UUCP id XAA10617 for access.digex.net!amos-list; Fri, 24 Jan 1997 23:25:45 +0100
Received: by karkis.canit.se (V1.17-beta/Amiga)
id <0tkf@karkis.canit.se>; Fri, 24 Jan 97 23:09:36 CET
Message-ID: <32e94108@karkis.canit.se>
Date: 24 Jan 97 23:08:56 CET
Organization: Karkis BBS, Stockholm, Sweden
X-Mailer: AmiGate 1.6a (22.12.95)
From: grok@karkis.canit.se (Hakan Venderlof)
To: amos-list@access.digex.net
Subject: rnd
Status: RO
X-Status:
amos-list@access.digex.net
If someone's interested I finally got a program that goes randomly one time to
each label:
Dim USED(10)
Do
_START:
X=Rnd(9)+1
If USED(X)<>0 Then Goto _START
USED(X)=1
Goto(X)
1
Print "1" : Goto _START
2
Print "2" : Goto _START
3
Print "3" : Goto _START
4
Print "4" : Goto _START
5
Print "5" : Goto _START
6
Print "6" : Goto _START
7
Print "7" : Goto _START
8
Print "8" : Goto _START
9
Print "9" : Goto _START
10
Print "10" : Goto _START
Loop
_______________________________________
| |
| greets..............................|
| |
| grok@karkis.canit.se +46+08+7529323|
|_____________________________________|